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MODULE RM3POSRFA_ (LANGUAGE (8). 15$5e) ’ 
IDENT = ‘V04-000' 


dz 
BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
!® DIGITAL EQUIPMENT CORPORATION,” MAYNARD. MASSACHUSETTS. 
!® ALL RIGHTS RESERVED 


'® THIS i the 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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® 
* 
® 
® 
ie INC SOFTWARE OR OTHER * 
is COPIES, THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
, ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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® 
is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
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file is write accessed and RU Jouranallable), then make sure 
the primary data bucket is accessed exclusively. 
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'++ 
' 
: FACILITY: RMS32 index sequential file organization | 
i ABSTRACT: | 
This module positions to a record by RFA. | 
i 
ENVIRONMENT: | 
7 VAX/VMS Operating System 
i | 
! | 
AUTHOR Todd M. Katz CREATION DATE: 14-Jan-83 
i 
MODIFIED BY: | 
i v03-003 TSk0001 _ Tamar kricheysky 15-Jun-1983 | 
Change addressing mode for RMSRU_RECLAIM to log relative. 
i v03-002 Tmk0001 Todd M. Katz 11-Mar-1983 
If it possible that some reclamation will be required (the 
; 
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GLOBAL ROUTINE RMSPOS_RFA : RLSRABREG_67 = 
'e4 
1 
FUNCTIONAL DESCRIPTION: 
This routine positions to a primary data record by its RFA. 


If RMS finds that the record with the aperooriete RFA is marked 
RU_DELETE and the Recovery Unit in which the record was deleted is 
still active, then RMS returns positioned to this record and lets a 
higher level routine decide what to do. If the Recovery Unit in which 
the record was deleted has yg rete terminated, then RMS wi 

return an error of DEL after deleting this RU_DELETEd record (if it has 


95 


write access to the file), and releasing the primary data bucket. 

If RMS encounters a record that is marked RU_UPDATE and is in a special 

format then RMS will return positioned to this record after 

reformatting it. The peveraes) iy is done if RMS has write access to 

the file, and the Recovery Unit in which it was updated has 

successfully terminated. 
CALLING SEQUENCE: 

RMSPOS_RFA() 


INPUT PARAMETERS: 
NONE 
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IMPLICIT INPUTS: 
- address of IFAB 


IFBSV_RU - if set, the file is Recovery Unit Journallable 
IFBSV_WRTACC - if set, file is open for write access 
AB - address of RAB 
RABSL_RFAO - RFA VBN of primary data record to be retrieved 
RABSW_RFA4 - RFA IF of primary data record to be retrieved 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


address of IRAB 
address of BDB for primary data bucket 
ID of current primary data record 


AB 
IRBSL_CURBDB 
IRBSW-RFA_ID 


SSSR UN SS SONO ORNS OOMNONR UN —HOOR UE RR ODO DDO ee 


a et et Dk Bk a a 8 Bo a od a od a ed a aD 
CNAU EWN 9 ODNOA UE WIN (OOD NAOUS WN $0 ODN UEWRA "OOONOAOUS WO 


ee eww www lo lala a lolololalolelolelololealelolealaleoleololololol ola elelolololalelelololololololol alo aololol alo) 
MPwnN— 


me ee ee me ee 8 et ed ed ed dd od dd dd 


Be Be Be Be Be Oe Oe Be Be Be Se Be Se Se Se Oe Se Be Se Se Be Be Ss Se Se FH Se Ge Ge Ge Se Ge Oe Ss Oe Se Ss Se Se Os SF Se Se Oe Se Ss Oe Oe SHS HSH SH Se Se ee es 


a ee ee ee eee SS SL Lee eee eee 


IRBSL_RFA_V8N VBN of current primary data bucket 
REC_ADDR - address of primary data record 
; ROUTINE VALUE: ae 
4 suc - the primary data record with this RFA has been found. 
4 DEL - the primary data record with this RFA has been deleted. 
: RNF - the primary data record with this RFA has not been found. 
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SIDE EFFECTS: 


and the BDB of the pc isery data bucket maybe found in IRBS$L_CURBDB. 
& 


| 
' 
| 
On success, REC_ADDR points to the non-deleted primary data record 
; On failures, all accessed buckets are released. 
' 
io 


If the record is marked RU_DELETEd, it might have been deleted. 
If the record is marked RU_UPDATEd, it might have been reformatted. 


BEGIN 
BUILTIN 
AP; 


EXTERNAL REGISTER 
COMMON RAB 


| 
STR, | 
R_IDX_BFN STR | 
R-REC_ADDR_STR; 

| 


LOCAL 
STATUS; 
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! If it possible that some reclamation will be required (the file is write 
' accessed and RU Jouranallable), then make sure the primary data bucket is 
accessed exclusively. 
if .IFABCIFBSV_WRTACC) 

- IFABCIFB$V_RUJ 

IRABCIRBSB_CACHEFLGS] = CSHS$M_LOCK; 
RMS is successful at positioning to the primary data record by its RFA. 
if (STATUS = RMSFIND_BY_RRV (.RABCRABSL_RFAO], .RABCRABSW_RFA4J, 0)) 

BEGIN 


' If RMS finds that the record with this RFA has been deleted within a 
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!' Recovery Unit, then it subjects this record to further processing 
' before Coc teing whether to return this record, or to return an error 
' of record deleted. 


ee 


REC_ADDRCIRC$V_RU_DELETE) 
BEGIN 
LOC 


fF. 
HEN 
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AL 
TEMP_STATUS; 
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If the Recovery Unit in which the record was deleted has 
not completed or if the file has not been opened for write 
access then no space can be reclaimed. Return an error of | 
RMS$_DEL unless the record itself could not be locked in which 
case return the record so that caller may decide what to do with 
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iF NOT (TEMP_STATUS = RMSRU_RECLAIM()) 
BEGIN 
IF_.TEMP_STATUS<0,16> NEQU RMSERR(RLK) 
> STATUS = RMSERR(DEL); 
! If the Recovery Unit in which the record was deleted has 
: puccoas Ty ty terminated, then RMS will be able to delete the 
' record at this time. In this case, change the return status 
to RMS$_DEL. 
ELSE 
> STATUS = RMSERR(DEL); 


! If the primary data record RMS has positioned was updated within a 
! Recovery Unit, then re-format the record at this time provided 

! the file is opened for write access, and the Recovery Unit has 

! terminated successfully. 


ELSE 
IF .REC_ADDRCIRC$V_RU_UPDATE) 


. IFABLIFBSV_WRTACCJ 
RMSRU_RECLAIM(); 


If the record originally positioned to has been found to be deleted, 
then release the primary data bucket in which it was found. 


F eSTATUS<D. 16 EQLU RMSERR(DEL) 
BEGIN 
GLOBAL REGISTER 

R_BDB ; 
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! Otherwise, setup to update the NRP context with the current address 
in the file of this primary data record. 
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ELSE 
BEGIN 
[RABE IRBSL_REA_VBN] = .BBLOCKC.IRABCIRBSL_CURBDB], BDBSL_VBNI; 
IRAB IRBSW-RFA-ID] = IRC$_ID(REC_ADDR); 


END 


' RMS was not successful at positioning to the primary data record by its 
RFA. Setup to return the reason why. 
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vod 19-808- 1382 OF: 3Ri 42 YAMS SRERASPOSREA. O32, w (28 
; 38 1 ELSE 
; ¢ BEGIN 
; 60 ; IRABLIRBSL_CURBDBI = 0; 
; 6¢ 5 4 IF .STATUS<0,16> EQLU RMSERR(EOF) 
: 26 § THEN 
: 264 STATUS = RMSERR(RNF); 
; 265 8 END; 
: 66 0329 
; 2 0330 ' Return status. 
: re §333 RETURN STATUS 
; $3 8 g END; : y 


-TITLE RM3POSRFA 

IDENT \V04-000\ 

-EXTRN RMSFIND_BY_RRV, RMSRLSBKT 
-EXTRN RMSRU_RECLAIM 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 


USHR #*M<R2,R4> ; 0150 
OA 06 AA €9 00002 LBC ©=-_-« @(IFAB) ,_1$ + 0234 
04 OOAO CA 01 £1 00006 BBC #1, 160C1FAB), 1$ : 0236 
40 Ad 01 90 0000C¢ MOVB #1. 64(IRAB) : 0238 
7E b4 00010 1$ CLRL =_ = ¢§P) : 0242 
7E 14 AB 3C 00012 MOVZ2WL 20(RAB), -(SP) : 
10 A8 DD 00016 PUSHL  16(RAB ; 
00006 30 00019 SBW = RMSF IND_BY_RRV 3 
5E 0¢ CO 0001C ADDL2 #12, SP : 
52 0 DO O001F MOVL RO, STATUS ; 
61 52 £9 00022 BLBC TATUS, 8 : 
17 66 05 €1 00025 BBC #5, (REC_ADDR), 3$ + 0251 
000000006 EF 16 00029 JSB RMSRU_RECLAIM : 0265 
07 50 £8 O00¢F BLBS §_TEMP_STATUS, 2$ : 
82AA BF 50 61 000 ; CMPW - TEMP"STATUS, #33450 : 0269 
15 13 0003 BEQL 84 ; 
52 8262 BF 3C 00039 2$ MOVZWL #33378, STATUS : 0280 
OE 11 O03E BRB 4 : 0251 
OA 66 06 £1 00040 3$ BBC #6, (REC_ADDR), 4$ + 0289 
06 06 AA F9 D044 BLBC : 0 91 
000000006 EE 6 00048 JSB RM$RU_RECLAIM : 0293 
8262 BF 2 61 OO4E 4$ CMPW TATUS, #33378 : 0298 
11 if 005 BNEQ $ : 
54 20 Ad 00 00055 MOVL (IRAB), BDB > 0305 
0 a9 04 00059 CLRL (TRAB) F 
43 bs O09¢ CLRL © = (SP) : 
009 G 0 99 : BSBW RMSRLSBKT ; 
5E A ¢ 6 ADDL2 #4, SP : 
2F 11 00064 BRB 9$ : 0298 
50 0 A9 06 5$: MOVL (IRAB), RO > 0313 
70 A C AO D A MOVL (RO) {12 ¢4RAB) ; 
03 0087 «CA (O91 oF CMPB 3(1FAB), @ > 0314 
1E 00074 BGEQU 6$ : 
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12-08-1382 94:3 342 RMS. SRCIRM3POSRFA.B32; 
as rf un MOV ZBL }(REC_ADDR), RO 
A 7C 6$: MOVZWL 1(REC_ADDR), RO 
06 86 § 9: MOVW RO, 1T6(IRAB) 
OF 11 0 BRB 33 
AD D4 8$: CLRL (IRAB) 
3 8) 3 SnEG aa #33402 
BF 3¢ 096 MOVZWL #33458, STATUS 
2 DO 00095 9$: MOVL STATUS, RO 
14 BA 44944 POPR #*°M<R2,R4> 
5 Q009A RSB 


; Routine Size: 155 bytes, Routine Base: RMS$RMS3 + 0000 


sf) o33¢ 1 
7 0335 1 END 
7 0336 1 
74 0337 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
RMSRMS3 155 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ounenes Syakels sonseoo> Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CRMS .OBJIRMS.L32;1 3109 43 1 154 00:00.4 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RM3POSRFA/OBJ=0BJ$:RM3SPOSRFA MSRC$:RM3POSRE A/UPDATE=(ENHS: RMSPOSRF A) 
Size: 155 ode + 0 data bytes 
Run Time: 705. 


Elapsed Time: :16. 
Lines/CPU Min: 866 
Lexemes/CPU-Min: 146 
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